(calendar-print-french-date): Label French date in echo area.

diff --git a/lisp/calendar/cal-french.el b/lisp/calendar/cal-french.el
index 2f045e2da45133c0f4bf6c0f7281ae44ca6812f9..d41111b4b7f5d2c0be18d57c36cd3bea433b6b98 100644 (file)
--- a/lisp/calendar/cal-french.el
+++ b/lisp/calendar/cal-french.el
@@ -173,7 +173,7 @@ Defaults to today's date if DATE is not given."
   (let ((f (calendar-french-date-string (calendar-cursor-to-date t))))
     (if (string-equal f "")
         (message "Date is pre-French Revolution")
-      (message f))))
+      (message "French Revolutionary date: %s" f))))
 
 (defun calendar-goto-french-date (date &optional noecho)
   "Move cursor to French Revolutionary date DATE.